Option Explicit
Sub L_Sample016()
    'ۭq(WUserForm1)
     Dim myForm1 As UserForm1
     Dim myForm2 As UserForm1
     Set myForm1 = New UserForm1
     With myForm1
         .StartUpPosition = 0
         .Top = 50
         .Left = 50
         .Show vbModeless
     End With
     Set myForm2 = New UserForm1
     With myForm2
         .StartUpPosition = 0
         .Top = 100
         .Left = 100
         .Show vbModeless
     End With
     Set myForm1 = Nothing				'
     Set myForm2 = Nothing
End Sub
